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EDITOR ! Gordon Bentzen 
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0S9 is the shape of things to coie! 

Are any of you thinking of purchasing a Conpatible machine in the near future? If you do you nay be in for a 
big surprise! "Big Blue' has suddenly found that MESS-DOS is just that, and that the power of the now 
available processors has finally surpassed the operating systen. Viola! Noh to introduce OS/2. A new 
operating systen that alloNS - wait for it - Hulti Tasking (!!!) and guess what else - sharable devices and 
files, It seems that IBM have finally found that in order to fully utilise the power of the B0386 chip, they 
needed to develop their own version of UNIL And not* we're gonna tell 'e« that we've had all this for years! 

Seriously, though. The lessage is that we have here an operating system that is still as aodern as tonorrow, 
but is affordable, and runs on an affordable lachine. At least when we speak about the CoCo Version. I 
would be interested to have any feedback fora those of you who are using, or know of anyone else who is using 
other versions of 0S9 on iiachines other than the CoCo. It would really help in the production of this 
Newsletter to know whether or not we have aiaed in the right direction as far as content is concerned. 

Uhy is OS? so good? Well let's examine why we are apparently so happy with the systeii. 

0S9 certainly has potential, There is no doubt about that. 0S9 is fun to play with. In fact, to sone of us 
that is the main attraction. It is a hackers delight. But I think that it goes deeper than that. The final 
value of the systein will be judged upon the systems ability to provide an environiient in which we can either 
do useful work, or provide a isechanisi by which people can continue to learn about computing systees. 

And 0S9 has the ability to do all of this. Me can play games, we can use it for business, we can use it for 
software development. Such a diversity of uses it what really lakes the systein so valuable. 

This issue is the usual potpourri of goodies, He have included sone connents and code froa Bob Devries 
regarding the use of and some nistakes in the C windowing functions. Bob has really put some effort into 
this project of his, and he should be congratulated for his efforts. 

As prontised in an earlier Newsletter, this issue we are including the Basic09 source code for a CoCo disk 
aaintenance utility by Don Berrie called 2AP. As the source code is rather long, we will be only be able to 
publish it in two parts. The second, and final instalsent will appear in next ionths newsletter. As you can 
see, we have fornatted it into two colunns to try to fit as luch as we can onto the liiited paper space that 
we have. The formatting is on a per page basis. That is, the right coluen on each page follows after the 
left colunn, and thence to the following page. 

Ue have also included a review of a coaiiercial 0S9 gaite, which is sold by Tandy. This review has been 
written by Nickolas tiarentes, the author of a nuisber of coniBercial progrannes. 

In the next issue, we plan to have soie notes on the topic of comunication, particularly in relation to the 
use of a terminal for the CoCo. The ability to use your tIS-DOS sachine as a terainal running under GS9 on 
your CoCo will really use it luch aore effectively than it can be used running under its own operating 
systea. 

By now it should be a faniliar plea. However, we cannot go on indefinitely producing this newsletter by 
using the efforts of just a few people. This is a NEWSLETTER and that ueans that we need your input. 
Without it the amount and the quality of the sheet oust decline. So cone on, share that siall snippet. Send 
us that piece of code. Let's hear from some non-CoCo users about their lachines. 
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Hulti-VuB and the C Prograiiing language. 

Boy, ain't we got ^un! Here I Mas, a raw beginner at the art of C prograiiing, and I thought Td look 
at the Mhys and Nherefores o^ using the C libraries that cane with the Hulti-Vue package. Nell, to start oH 
Mith, I thought that by foUoNing the exaoples in the lanual, I couldn't go Mrong, HoMever, not only Nas I 
wrong, I Nas also led completely astray. Let oe give you soie exaiples o^ hoM far wrong you can get. The 
first thing I thought I'd try was to use soie of the CGFK. LIB calls as documented in the oanual. Did I coae 
unstuck! The lajor reason for ly sticky situation xas that the nanual lis-spelled several of the function 
nanes. For example, js.uBbar is incorrect, it has lore than B characters which is not allowed in our 
version of C. The correct spelling is _S5_ubar. Mhen I found that the linker was spitting that one out as 
'unresolved external', I decided that I should do a duiip of the new CGFX library, and see what exactly was in 
it. 

You use RDUMP for that, right? Wrong! It seens that the new library is set up differently so that the 
new linker RLINK can use then and the setup is different and RDUNP coaes back with an error lessage to the 
effect that the file is not ROF. I ended up using a nodified version of the progranne 'LIB' frois the user 
group library disks to read it. This gave oie a file called 'leodlist' which contained the naies of all the 
cgfx functions, and their correct spellings of course. Please note that the C coeipiler is case sensitive. 

Well, after trying several of the siopler graphics functions, I thought I'd try something a little 
lore pretentious, and try a franed window with pull-down lenus a-la lulti-vue. I read through the lanual 
again, and started to write my little progrannie. All I wanted at first was to create the framed window on an 
existing graphics screen, but when I tried to compile it, the C compiler told me of errors in the file 
'stdmenu.h'. After examining it and referring again to the C compiler manual, I found that the compiler does 
not allow macros to be longer than one line. The 'stdmenu.h' file is full of them! 

I decided to do my own thing inside my programme. Using the mouse drivers was also an experience in 
that while the information in the multi-vue manual is more or less correct, it leaves out some very important 
information and omits to mention one necessary function call to .ssjip without which the mouse won't work at 
all. So after fighting with it for a while I conferred with Don Berrie on how he did his mouse drivers in 
Basic09 and there I found the missing call. After that session I worked out how to get the QS9 kernel to 
steer the graphics cursor around the screen with minimum of programming overhead. Now without further ado, 
here's the listing of the programme I have at this stage. Of course it was just a try out programme, and 
does not do anything at all except tell you what you selected. 

^include (stdio.h) 
^include <ffiouse.h> 
tinclude (buffs. h> 
^include <wind.h> 

#define TRUE 1 

«define FALSE 

idefine UPDATE 3 

ftdefine TIHOUT 10 

#define FOLLON 1 

^define MOUSSIG 10 

Idefine TNDY_MN {'T','a','n','d','y','\0'),MNJNDY,10,9,l,0,0, janitms 

#define FILE MN {'F','i','r,'e','s','\0'}, MNJILE, 10,7, 1,0,0, filitms 

Idefine EDIt'hN {'E','d','i','t','\0'}, hNJDIT,6,6,l,0,0,.edtitms 

Idefine HKHIN 40 

Idefine WYHIN 24 

Idefine RESERVED {'\0','\0','\0','\0','\0','\0','\0'} 

Idefine RES5 {'\0','\0','\0','\0','\0'} 
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MIDSCR tanitusEl = { 

{{'C','a','r,'c','\0M,l,RES5}, 
{{'C','r,'oS'c','k'/\0'},l,RES5}, 

{{'C','a','l','eS'n','d','a','r','\0'},l,RES5}, 
{{'C','D','n','t',V','o','l','\0'},l,RES5}, 
{{'P','r','iS'n','t','e','r'/\0'},l,RES5}, 

{{'p^'Q^'^^'t^'\o'},^RES5), 

{{'H','eS'r,'p','\0'},l,RES5}, 
{{'S','h','e','r,'r,'\0'},l,RES5}, 
{{'C','l'/i','p','b','Q','a', 
'r','dS'\0'},l,RES5} 

J; 

HIDSCR filitnsC] = { 



sigliandler(sig} 
int sig; 
{ 

sigcode = sig; 
} 



fliainO 

{ 



{{'N 



' f m> > uf f 



N','\0'},1,RES5}, 



{{'Q','p','e','n','\0'},l,RES5}, 
{{'S','a','v','e%'\0'},l,RES5}, 

tnc^ I-) )u> >_> f t 1 A} } -f t J r J J t 

'\0'},1,RES5}, 

{{'ft','b','a','n','d','o','n','\0M,l,RES5}, 

{{'p^'^^'i^'n^'t^'\o'},l,RES5}, 

{{'Q','u'/i','t','\0'},l,RES5} 

MIDSCR jdtita5[] = { 

({'U','n','d','o','\0'},l,RES5}, 

{{'C','u','t','\0'},l,RES5}, 

{{'C\'o','p','y','\0'},l,RES5}, 

{{'P','aS'5','t','e','\0'},l,RES5}, 

{{'C','l'/e','a','r','\0'},l,RES5}, 



{{'S','h','a',^w','\0M,l,RES5} 



}i 



MNOSCR lenusCI ^ { 
{TNOY tlN), 
(FILEJN), 
{EDIT MN} 

J; 



HNDSCR windat = { 

{'A','p','p','l','i','cS'a','t','i','Q', 

'n','\0'}, 

sizeof I9nus / sizeof lenusCO], 

HXtilN, 

WYMIN, 

HINSYNC, 

RESERVED, 

lenus 

Ji 

MSRET isinfo; 
int sigcode; 



char path = 1; 
char ch; 
int itenno; 
int quit = FALSE; 

setbuf(stdin,NULL); 

SBtbuf{stdout,NULL); 

CurOff(path)i 

if (.55jsBt(path,WT_FKIN,iNindat)<0) 

exit(errno); 
intercept (sighandler); 

Set6C(path,BRP.PTR,PTRJRR); 
,5Sjip(path, 1,1,255,255); 
j5jou5(path,liPDATE,TIH0UT, FOLLOW); 
j5jsig(path,M0USSIB); 

sigcode = 0; 
do { 

.55_asiglpath5f10USSI&); 
if (sigcode == 0) 

tsleep(O); 
if (sigcode » nOUSSIS) 
{ 

sigcode = 0; 
js_aous(path,&iisinfo); 
:i inisinfo.pt stat == WR CNTRL) 
{ 

SHitch( gs i]isel(path,&iteino) 
{ " " 
case MN.CLOSi 
quit = TRUE; 
break; 
case MNJNDYs 

dojandy.ienutiteino); 
break; 
case HN.FILE; 
dojilejenu(iteino); 
break; 
case MN.EDIT: 
dojdit_ienu(iteino); 
break; 
} 
printf('Xc*,12}; 
} 
} 
} Mhile ('quit); 
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Set6C(path,0,0); 

_55_rel(path); 

CurOn(path); 

,55.W5et(path,WTJBD){,!(Windat)i 



dD_tandy_menu(itBm) 

int item; 

{ 

char ch; 
switch (item) 
{ 
case 1: 

printf('7.cy,cXc Calc. ",2,42,42); 
break; 
case 2: 

printf("Xc'/.cXc Clock. ",2,42, 42); 
break; 
case 3: 

printlCXcXcXc Calendar. ",2,42,42); 
break; 
case 4: 

printfCXcXcXc Control. ",2,42,42); 
break; 
case 5: 

printf(-Xcy.cXc Printer. ",2,42,42); 
break; 
case 6: 

printf{"y.c)(c';ic Port. ",2,42,42); 
break; 
case 1\ 

printfincXcXc Help. ",2,42, 421; 
break; 
case 8; 

printf("Xcy.c5ic Shell. ",2,42,42); 
break; 
case 9i 

printf(-Xc7.cXc Clipboard. ",2,42,42); 
break; 
) 

printf("\n\n Press any key,.,"); 

ch = getcharO; 
prints ("7.C", 12); 
} 

dojilejenudtem) 
int item; 
{ 

char ch; 
switch (item) 
{ 
case 1: 

printf("XcMc New.", 2,42,42); 
break; 
case 2: 

prints CXc'/cXc Open. ",2,42,42); 



break; 
case 3: 

printf("XcXcXc Save. ",2,42, 42); 

break; 
case 4: 

print! ("XcXcXc Save As.. .",2,42,42); 

break; 
case 5: 

print! ("XcXcXc Abandon", 2, 42, 42); 

break; 
case 6: 

print! ("XcXcXc Print. ",2,42,42); 

break; 
case 7: 

print!("XcXcXc Quit. ",2,42, 42); 

break; 
} 

print!("\n\n Press any key..,"); 
ch = getcharO; 
print!("):c",12); 



do_editjenu(item) 

int item; 

{ 

char ch; 
switch (item) 
{ 
case 1: 

print! ("y.cXc7,c Undo. ",2,42,42); 
break; 
case 2; 

print! ("XcXc'/ic Cut, ",2,42,42); 
break; 
case 3: 

print! ("XcXc'/ic Copy. ",2,42,42); 
break; 
case 4; 

print! CXcXcXc Paste.", 2,42,42); 
break; 
case 5; 

print! CXcXcy.c Clear. ",2,42,42); 
break; 
case 6: 

print! ("XcXcXc Show, ",2,42,42); 
break; 
} 

print!("\n\n Press any key..."); 
ch = getcharO; 
print!("Xc",12); 
} 
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ZAP 

The following is the BasicO? source code for one of my favourite home-baked programiiies, an QS9 Level 2 disk 
zapper. For those purists amongst you, I apologise for the spaghetti. However, by Nay of apology, I have to 
say that this project just grew, and grew, and grew! Consequently, it Mas written without much planning or 
attention to sensibilities. To have such things as line numbers etc. is archaic. However what you see is 
what you get, While the code was written using the data in the CoCo 0S9 Level 2 Manual as reference 
naterial, I hope that it will function on any 0S9 system, I will provide a complete description of the 
prograiBine in the next newsletter. 

Don Berrie. 



PROCEDURE zap 
BASE 

DIM PAGE,PATH,wpath,fgnd,bgnd,bord!BYTE 
DIM fliaxblock,ident,x,y,xl,yl!lNTEGER 
DIM title:STRING[40] 
DIM CH0ICE:STRING[25] 
DIM outstr:STRING[18] 
DIM NAME!STRING[4] 
DIM DTA,NEWBYTE:BYTE 
DIM COUNT, METER, BLKNQjREAL 
DIM OFFSET, iblknoiINTEGER 
DIM SBcdat (256): BYTE 
DIM keypressiSTRINGCn 
DIM flagjBOOLEAN 
flag=FALSE 
fgnd=0 
bgnd=l 
bord=l 

OPEN iwpath,Vw"iUPDATE 
RUN gfx2(wpath,"Dl«ISET", 2,0,0,80, 24, fgnd, 
bgnd,bord} 

RUN gfx2(wpath, "SELECT") 
1 fgnd=4 
bgnd=5 

RUN gfx2(wpath,"0WSET",l,0,0,80,24,fgnd,bgnd) 
RUN gfx2<wpath,"0WSET",O,l,0,79,24,fqnd,bgnd) 
x=0 \y=0 \xl=80 \yl=24 
outstr="" 
PAGE=0 

PRINT *wpath,CHR$($OC) 
RUN winQpen(wpath,x,y,xl,yl) 
PRINT ttwpath, 
PRINT Itwpath," "} 

titlB="tl DISK MAINTENANCE UTILITY tV 
RUN header(wpath, title) 
PRINT Itwpath, \ PRINT Itwpath, 

(c) 1988 D. A. Berrie" 



PRINT Itwpath," 
PRINT Iwpath, 
PRINT iwpath," 
PRINT Itwpath, 



Version 1.10 88/08/07' 



PRINT Itwpath, "ill USE WITH CARE - PERMANENT 
CHANGES TO DISK STRUCTURE CAN BE MADE W 

PRINT itwpath, 

RUN getdev(wpath, NAME, PATH, secdat,niaxblock, 
ident) 

PRINT Itwpath, 

RUN getsec(wpath,fl)axblock,BLKNO) 

ON ERROR GOTO 100 

10 METER=BLKN0t256 
iblkno=BLKNO 
CQUNT=0 

SEEK ItPATH,! 

GET ItPATH, secdat 

IF secdat(141t256+5ecdat(i5)<>ident THEN 

x=6 \xl=40 \y=8 \yl=8 

RUN winopen(wpath,x,y,xi,yl) 

PRINT Iwpath 

PRINT twpath," WARNING: DISK HAS BEEN 
CHANGED! " 

PRINT Itwpath," Press any key to continue 

) 

GET Itwpath, keypress 

RUN winclose(wpath) 

ENDIF 
SEEK ItPATH, METER 
GET ItPATH, secdat 
CLOSE ItPATH 

11 RUN scn(wpath, NAME, iblkno, secdat) 
IF flag=TRUE THEN 

keypre5s="A" 

flag=FALSE 

GOTO 21 

ENDIF 
20 fgnd=0 
bgnd=l 

RUN gfx2(wpath,"0WSET", 1,6,22,32, l,fgnd,bgnd) 
RUN gfx2lwpath,"CUR0FF") 
PRINT Itwpath," A C D E H-help M N P Q <■ »> 

H. 

! 

GET Itwpath, keypress 
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RUN gh2(Mpath,"CUR0N"l 
RUN gh2(wpath,"0WEND") 
21 CH0ICE=keypre55 

IF CHOICE="D" OR CHQICE="d" THEN 

x=5 \xl=30 \y=10 \yl=6 

RUN Hinopen(wpath,x,y,xl,yl) 

RUN getdBv(Mpdth, NAME, PATH, secdat,ii)axblock, 
ident) 

RUN getsBc(Hpath,fitaxblock,BLKNO) 

GOTO 10 

ENDIF 
IF CHOICE="C" OR CHOICE="c' THEN 

x=40 \xl=30 \y=l \yl=22 

RUN winopen(Npath,x,y,xl,yl) 

RUN calc(wpath) 

RUN Minclose(Hpath) 

GOTO 20 

ENDIF 
IF CHOICE="Q" OR CHOICE="q" THEN 

PRINT ltwpath,CHR$(SOC) 

RUN gh2(l, "SELECT"} 

RUN gfx2(Hpath,"DWEND") 

CLOSE ilwpath 

END 

ENDIF 
IF CHOICEs^A" OR CHOICE="a" THEN 

x=40 \xl=30 \y=l \yl=23 

RUN winopen(wpath,x,y,xl,yl) 

RUN ascii(Hpath,secdat, keypress) 

RUN Mindosetwpath) 

IF keypre5S=CHR$(8) OR keypres5=CHRS(9) THEN 

flag=TRUE 
ENDIF 

GOTO 21 

ENDIF 
IF CHOICE="«" OR CHQICE="Bi" THEN 

RUN change(wpath,iblkno,5ecdat, PATH, NAME) 

GOTO 20 

ENDIF 
IF CHOICE="E" OR CHOICE="e" THEN 

x=0 \y=0 \xl=80 \yl=24 

RUN winopen(Hpath,x,y,xl,yl) 

RUN directory(wpath) 

RUN Hincloseiwpath) 

GOTO 20 

ENDIF 
IF CHQICE="H" OR CHOICE="h" THEN 

){=40 \y=l \xl=30 \yl=22 

RUN Hinopen(Npath,x,y,xl,yl) 

RUN helpmessiMpath, keypress) 

RUN winclose(wpath) 

GOTO 21 

ENDIF 
IF CHQICE="N" OR CHOICE="n" THEN 



OPEN *PATH,NAME 
x=20 \y=12 \xl=40 \yl=5 
RUN winopen(wpath,x,y,xl,yl) 
RUN getsec(Mpath,naxblock,BLKNQ} 
GOTO 10 
ENDIF 
IF CH0ICE=CHR$19) THEN 
OPEN iPATH,NAf1E 
BLKNO=BLKNO+l 
IF BLKNO>«axblock THEN 

BLKNO=0 

GOTO 10 

ENDIF 
GOTO 10 
ENDIF 
IF CH0ICE=CHR$(8) THEN 
OPEN *PATH,NAI1E 
BLKN0=BLKN0-1 
IF BLKNO<0 THEN 

BLKNO=naxblock 

GOTO 10 

ENDIF 
GOTO 10 
ENDIF 
IF CHOICE="P" OR CHOICE="p'' THEN 
25 x=25 \y=10 \xl=30 \yl=5 
COUNT=0 

RUN Minopen(Mpath,x,y,xl,yl) 
PRINT llwpath," Printing Sector "; 
ON ERROR GOTO 30 
OPEN »PATH,"/p" 

PRINT ItPATH, "DEVICE : "; LEFTS (NAME, 
LEN(NAHE)-l); " "; "SECTOR ; $"; 
PRINT ItPATH USING "h4>",iblkno 
PRINT ItPATH 

PRINT ItPATH, -Rel 1 2 3 4 5 6 7 8 9 A B C 
D E F 2 4 6 8 A C E" 

PRINT ItPATH, "Addr 

FOR i=0 TO 255 
IF COUNT=0 THEN 

PRINT ItPATH USING "H2>",PAGE; 

PAGE=PAGE+1 

PRINT ItPATH," "; 

ENDIF 
PRINT IPATH USING "h2>",5ecdat(i)| 
COUNT=CQUfiT+l 
IF 5ecdat(i)<$21 OR 5ecdat(i)>$7A THEN 

outstr=outstr+"," 

ELSE 

out5tr=outstr+CHR$(secdat(i)l 

ENDIF 
IF C0UNT=16 THEN 

PRINT ItPATH," "i outstr 

outstr="» 
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COUNT=0 
ENDIF 
NEXT i 
PRINT tPATH,CHR$($OC) - 
CLOSE IPATH 
PAGE=0 

RUN NincloseiNpath) 
ENDIF 
GOTO 20 
END 
30 errnuiB=ERR 

RUN winclQse(wpath) 
IF errnuiii=246 THEN 
x=25 \y=10 \xl=40 \yl=5 
RUN ninopBn(wpath,x,y,xl,yl) 
PRINT ttwpath, "PLACE PRINTER ONLINE - PRESS A 
KEY"; 

BET itwpath, keypress 
kBypress="" 
RUN Hinclose(wpath) 
GOTO 25 
ENDIF 
100 RUN closerrtwpath) 
END 

PROCEDURE helpmess 
ON ERROR GOTO 100 
PARAM wpathiBYTE 
PARAN keypressiSTRINGtl] 
DIM titlB:STRIN6[40] 
PRINT »wpath," "; 
titlB="DISK MANAGEMENT HELP" 
RUN head6r(wpath,titl6) 
PRINT Iwpath, 
PRINT ttwpath, 

PRINT tHpath,"A - ProducBS Ascii duntp" 
PRINT »wpath,"C - Calculator (Hbx.)" 
PRINT *wpath,"D - ChangB RBF DbvIcb" 
PRINT »wpath,"E - ExtBndsd dirBctory" 
PRINT iwpath,"H - ProducBS this list" 
PRINT itwpath,"H - Hodify current sector" 
PRINT *wpath,"N - Change sector number" 
PRINT lwpath,"P - Hardcopy of sector" 
PRINT «Hpath/Q - Quit progran" 
PRINT *lwpath,"<= (left arrow) - change" 
PRINT iwpath," to previous sector" 
PRINT lwpath,"=> (right arrow) - change" 
PRINT twpath," to next sBctor" 
PRINT »wpath, 

PRINT #wpath,"S6lect Any Key"; 
GET lwpath,keyprBss 
END 
100 RUN closerr(wpath) 
END 



PROCEDURE sen 

ON ERROR GOTO 100 

BASE 

PARAh wpathiBYTE 

PARAM NAME:STRING[43 

PARAM iblkno: INTEGER 

PARAM 5ecdat(256):BYTE 

DIM COUNT:REAL 

DIM i: INTEGER 

DIM PAGEiBYTE 

DIM outstr:STRIN6[16] 

PRINT lwpath,CHR$($0C) 

PAGE=0 \outstr="" 

COUNT=0 

PRINT ttwpath, "DEVICE : "; LEFT$(NAME, 
LEN(NAME)-l); " "; "SECTOR : $"; 

PRINT Itwpath USING "H4>", iblkno 

PRINT Itwpath, 

PRINT ftwpath,"RBl 1 2 3 4 5 fe 7 B 9 A B C D 
E F " 

PRINT itwpath, "Addr 



FOR i=0 TO 255 
IF COUNT=0 THEN 

PRINT ttwpath USING "h2>",PAGE; 

PAGE=PAGE+1 

PRINT ttwpath," "; 

ENDIF 
PRINT itwpath USING "h2>-,secdat(i); 
C0UNT=C0UNT+1 
IF 5ecdat(i)<*21 OR 5ecdat(i)>$7A THEN 

outstr=outstr+\'' 

ELSE 

outstr=outstr+CHR$(secdat(i)) 

ENDIF 
IF COUNT=U THEN 

PRINT iwpath 

COUNT=0 

ENDIF 

m] i 

PRINT itwpath 
END 
100 RUN closBrr(wpath) 
END 

PROCEDURE winopBn 

ON ERROR GOTO 100 

PARAM wpath:BYTE 

PARAM x,y,xl,yl:INTEGER 

RUN 9fx2(wpath,"owset",l,x,y,xl,yl,l,2) 

RUN gfx2(wpath,"owsBt",l,x+l,y+l,xl-2, 
yl-2,0,1) 

RUN gh2(wpath,"ow5et",l,x+2,y+2,xl-4, 
yl-4,0,1) 

x=0 \y=0 \xl=0 \yl=0 
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END 
100 RUN closerrfNpath) 
END 

PROCEDURE winclose 
PARAM wpathiBYTE 
ON ERROR GOTO 100 
RUN gh2{wpath,"Dwend") 
RUN q^x2(wpath,"owend'') 
RUN gf){2(wpath,"Dwend") 
END 
100 RUN closerr(wpath) 
END 

PROCEDURE ascii 

ON ERROR GOTO 100 

BASE 

PARAM wpathsBYTE 

PARAM secdat (256): BYTE 

PARAM keypress:STRIN6[l] 

DIM i, count! INTEGER 

DIM pagesBYTE 

DIM outstriSTRINGEU] 

out5tr="" 

page=0 

count=0 

PRINT Iwpath," 2 4 6 8 A C E" 

PRINT Hwpath," " 

FOR i=0 TO 255 
IF CDunt=0 THEN 

PRINT Iwpath USING "h2>",page; 

page=page+l 

PRINT iHpath/ "; 

ENDIF . 
IF secdat(i)<«0 OR secdat(il>*7A THEN 

out5tr=outstr+"." 

ELSE 

out5tr=outstr+CHR$(secdat(i)) 

ENDIF 
count=count+l 
IF count=16 THEN 

PRINT iwpath, Dutstr 

out5tr="" 

count =0 

ENDIF 
NEXT i 
PRINT Iwpath, "Select A Key"; 
GET Iwpath, keypress 
END 
100 RUN closerr(wpath) 
END 

PROCEDURE change 
ON ERROR GOTO 100 
BASE 



PARAM wpathiBYTE 

PARAM iblkno: INTEGER 

PARAM secdat (256) :BYTE 

PARAM PATH: BYTE 

PARAM NAME:STRING[4] 

DIM x,y,xl,yl;INTE6ER 

DIM key:STRING[l] 

DIM hBx:STRIN6[2] 

DIM a,b,c,d,ihex:INTE6ER 

DIM flag: INTEGER 

DIM lirstiBOOLEAN 

flag=0 

a=5 \b=5 \c=5 \d=5 

RUN gh2(wpath,"curoH") 

RUN gh2(wpath,"CUR)(Y",5,22) 

RUN gh2(Npath,"C0L0R%0,l) 

PRINT Iwpath," 2-HEX-BYTES H-HELP W Q arrows 

RUN gh2(wpath,''C0L0R",4,5) 

10 c=a \d=b 

RUN swopenlwpath, a, b, secdat) 

RUN gf)(2(wpath,"owset", 1,78, 23, 1,1,5,5) 

GET Iwpath, key 

RUN gh2(wpath,"owend") 

11 hex="" 
first^FALSE 

IF key=CHR$(10) THEN 
b=b+l 

IF b=21 THEN 
b=5 
ENDIF 
RUN swdose (wpath, a, b,c,d, secdat) 
GOTO 10 
ENDIF 
IF key=CHR$(12) THEN 
b=b-l 

IF b=4 THEN 
b=20 
ENDIF 
RUN swd ose (wpath, a, b,c,d, secdat) 
GOTO 10 
ENDIF 
IF key=CHR*(9) THEN 
a=a+2 

IF a=37 THEN 
a=5 
b=b+l 

IF b=21 THEN 
b=5 
ENDIF 
ENDIF 
RUN swd ose ( wpat h , a, b , c , d , secdat ) 
GOTO 10 
ENDIF 
IF key=CHRi(8) THEN 
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a=a-2 

IF a=3 THEN 

a=35 

b=b-l 

IF b=4 THEN 
b=20 
ENDIF 

ENDIF 
RUN swclo5e(wpath,a,b,c,d,5ecdat) 
GOTO 10 
ENDIF 

15 IF ASC(key)>47 AND ASC(key)<58 OR ASC(key)>64 
AND ASC(key)<71 OR ASC(key)>96 AND ASC(key)<103 
THEN 

hex=hex+kBy 

IF first=TRUE THEN 

GOTO 16 

ENDIF 
fir5t=TRUE 
key='"' 

GET «wpath,key 
GOTO 15 

16 5ecdat((a-5)/2+(b-5)ll6l=VAL("$"+hex} 
fUg=l 

RUN swQpen(Mpath,a,b,secdat} 
a=a+2 

IF a=37 THEN 
a=5 
b=b+l 

IF b=21 THEN 
b=5 
ENDIF 
ENDIF 
RUN swclose(Npath,a,b,c,d,secdat} 
GOTO 10 
ENDIF 
IF keys'-W" OR key="H- THEN 
RUN SNclose(Npath,a,b,c,d,secdat} 
RUN gfx2(Npath/curon") 
RUN iiodify(MpathfSecdat,iblknQ, 
PATH,NAME,flag) 
END 
ENDIF 
IF keys-Q" OR key=''q" THEN 
GOTO 20 
ENDIF 
IF key=-H" OR key=-h" THEN 
RUN sNclose(wpath,a,b,c,d,secdat) 
x=45 \y=l \xl=30 \yl=22 
RUN Ninopen(Mpath,x,y,xl,yl) 
RUN helpiness2(Npath,key) 
RUN wincloseiwpath) 
GOTO 11 
ENDIF 
key='"' 



GOTO 10 
20 key=''" 

RUN 5wclose(Npath,a,b,c,d,secdat) 
IF nag=l THEN 

x=10 \xl=60 \y=8 \yl=8 

RUN MlnQpen(wpath,x,y,xl,yl} 

PRINT #wpath," NO CHANGES SAVED TO DISK 
II 

PRINT *wpath, 

PRINT ttwpath," Press Any Key to Continue" 

GET »wpath,key 

RUN Mincloseiwpath) 

ENDIF 
RUN gh2(wpath,"CURXY",5,22) 
PRINT ftwpath," 

RUN gfx2(wpath,"curon") 
END 
100 RUN doserriwpath) 
END 

PROCEDURE swopen 

ON ERROR GOTO 100 

BASE 

PARAM wpathtBYTE 

PARAh a, b: INTEGER 

PARAM 5ecdat(256)!BYTE 

RUN gfx2(Mpath,"curxy",a,b) 

RUN gh2(wpath,"revon") 

PRINT #wpath USING "h2>%5ecdat((a-5) 
/2+(b-5)ll6)i 

RUN gfx2(Npath/curxy",a,b) 

END 
100 RUN closerrlNpath) 

END 

PROCEDURE swdose 

ON ERROR GOTO 100 

BASE 

PARAH wpath:BYTE 

PARAM a,b,c,d: INTEGER 

PARAM 5ecdat(256):BYTE 

RUN gfx2(Npath/revon") 

RUN gh2(wpath,"curxy",c,d) 

PRINT ttwpath USING '•h2>",5ecdat((c-5) 
/2+(d-5)ll6); 

RUN gfx2(Npath,"curxy",a,b) 

END 
100 RUN closerr(Hpath) 
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mutuuuunuummmtmt 

K R N I S RIFT 
SOFTWARE REVIEW 

By Nickolas liarentes (CoCo3 Coniniercidl Progranmier} 



GAME SCENARIO: 

Vqu are a 'Techno-Scavenger', one who lakes a living searching for abandoned technological systems. From 

galaxy to galaxy you roam collecting technological "junk" for resale. Life's tuff! 

Suddenly, your instrunents spring to life like they have never done so before. Radiation flux levels in the 

ten thousand range! Closer examination reveals that you have stumbled across the fabled "Koronis Rift", An 

ancient test ground for the lost powerful weapons. 

On descending into the rifts, you drive your Surface Rover across the planet surface, tracking down abandoned 

"Mulks". Once found, you send you Repo-Tech droid to loot it and return with any useful systems. Vou must 

analyze each module, working out what each module is, how much energy it has, how much it's worth and 

determine if you can put it to use in your own Surface Rover for increased capabilities. 

Beware though, the planet is patrolled by Guardian Saucers which you must destroy or evade. 

GAME PACKAGING: 

The game comes very well presented in a professionally presented, colour box. Inside is a small well written 
booklet, a command card and a disk. Koronis Rift has been available for the Atari 400/800 and Commodore 64 
computers before finally being released for the CoCo3. The documentation is designed for each computer with 
the command card being specific for the host system. 

PROGRAM DEVELOPMENT: 

The program is brought out by EPVK, a large U.S. software house who has mainly been supporting the Commodore 
64 computer. The program is actually developed by a team called LUCASFILH LTD. which is the home computer 
software division of George Lucas's (Star Wars fame) special effects and film company. So, as you can see, 
Koronis Rift is no "backyard job". The CoCo3 version programmers are Edwin Rosenzweig and Ken Rogoway. The 
program runs under the CoCo3'5 OS-9 Level 2 system. 

POSITIVE POINTS: 

Good use of the OS-? environment. Good use of the CoCo3's graphics (great title page!) making use of colour 
shades for added depth. Great game scenario of which much of the game terminology are trademarks of 

Lucasfilm Ltd. 

NEGATIVE POINTS: 

Sound is a bit on the minus side, especially when compared with the Atari and Commodore versions but this is 
a speed limitation when running under OS-? and the CoCo3'5 lack of a dedicated sound chip. 



CLOSING COMMENTS: 

Great program! The program is good value for money when one considers the professionalism of packaging, depth 
of script and development of special Fractal algorithms for the planet terrain. One very unfortunate thing 
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though, according to Tandy here in Australia, Koronis Rift is noM a discontinued product I I for one at 
shocked that such good softMare, which hasn't had the chance to be larketed properly is being given the boot. 
I can think of other prograns which Tandy are selling which I feel should be discontinued instead of this one 
{stay tuned for a future episode!). So, if you're planning on getting a new CaCo3 gaiie, grab Koronis Rift 
before they cofipletely disappear. 



AVAILABLE: Tandy Electronics Stores 
PRICE ! 152.46 (Discontinued price) 
REQUIRES : 128K CoCo3 + Disk Drive 

ddOOOdo 



The following is a list of systen error lessages which lay be of use as an easily accessable reference 



069 ERROR HE88ABE8 



183 - Illegeal window type 

184 - Window already defined 

185 - Font not found 

186 - Stack overflow 

187 - Illegal arguaent 

188 - unused 

189 - Illegal Coordinates 

190 - Internal integrity check 

191 - Buffer size too stall 

192 - Illegal coiiand 

193 - Screen or Window table is full 

194 - Bad/Undefined buffer nuiber 

195 - Illegal window definition 

196 - Window undefined 

197 - unused 

198 - unused 

199 - unused 

200 - Path tabl full 

201 - Illegal path nuiber 

202 ' Interrupt poling table full 

203 - Illegal lode 

204 - Device table full 

205 - Illegal aodule header 

206 - Module directory full 

207 - Meiory full 

208 - Illegal service request 

209 - Module busy 

210 - Boundary error 

211 - End of file 

212 - Returning non-allocated leiory 

213 - Non-existing segient 

214 - No periission 

215 - Bad path naie 

216 - Path naie not found 

217 - Segient list full 



218 - File already exists 

219 - Illegal block address 

220 - Data carrier detect lost 

221 - Module not found 

223 - Suicide atteipt 

224 - Illegal process nui,ber 

226 - No children 

227 - Illegal SNI code 

228 - Process aborted 

229 - Process table full 

230 - Illegal paraieter area 

231 - Known lodule 

232 - Incorrect lodule CRC 

233 - Signal error 

234 - Non-existent Module 

235 - Bad Naie 

236 - Bad lodule header 

237 - RAM full 

238 - Unknown process ID 

239 - No task nuiber available 

240 - Unit error 

241 - Sector error 

242 - Write protect 

243 - CRC error 

244 - Read error 

245 - Write error 

246 - Not ready 

247 - Seek error 

248 - Media full 

249 - Wrong type 

250 - Device ready 

251 - Disk ID change 

252 - Record is locked out 

253 - Non-sharable file busy 

254 - I/O deadlock errror 
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